home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presentation Library 1993 Winter / The Apple Reference & Presentations Library CD Winter 93 - Partner Edition.7z / Image.iso / Applications / Technical Publishing / Aldus PageMaker 4.2 / PM4.2 RSRC / PM4.2 RSRC.rsrc / STR#_20737.txt < prev    next >
Text File  |  1991-12-13  |  2KB  |  97 lines
  1. /imbuf w bits mul 4 mul 7 add 8 idiv string def 
  2. x0 y0 translate w h bits [sx 0 0 sy 0 0] 
  3. {currentfile imbuf AsBin {readstring} {readhexstring} ifelse pop} false 4 colorimage 
  4. } def    
  5.  
  6.  
  7. /S_CMYKIMAGE    {    
  8. /bits exch def 
  9. /h exch def    /w exch def 
  10. /dh exch def    /dw exch def 
  11. /y0 exch def    /x0 exch def 
  12. /AsBin exch def 
  13. /sx w dw div def 
  14. /sy h dh div def 
  15.  
  16.  
  17. DFLT
  18.  
  19.  
  20.  
  21.  
  22.  
  23. /imbuf w bits mul 3 mul 7 add 8 idiv string def 
  24. x0 y0 translate w h bits [sx 0 0 sy 0 0] 
  25. {currentfile imbuf AsBin {readstring} {readhexstring} ifelse pop} false 3 colorimage 
  26. } def    
  27.  
  28.  
  29. /S_RGBIMAGE    {    
  30. /bits exch def 
  31. /h exch def    /w exch def 
  32. /dh exch def    /dw exch def 
  33. /y0 exch def    /x0 exch def 
  34. /AsBin exch def 
  35. /sx w dw div def 
  36. /sy h dh div def 
  37.  
  38.  
  39. 3 add index exch 2 add index dup
  40. 4 1 roll sub mul add
  41. counttomark 1 add 1 roll cleartomark}
  42.  
  43.  
  44.  
  45. counttomark dup 3 add -1 roll exch
  46. 2 sub mul dup floor cvi
  47. dup 3 1 roll sub exch dup
  48.  
  49.  
  50. {exch pop abs 1 exch sub}
  51.  
  52.  
  53.  { abs exch abs 2 copy add 1 gt {1 sub dup mul  exch 1 sub dup mul add 1 sub }{ dup mul exch  dup mul add 1 exch sub } ifelse } 
  54.  
  55.  /imbuf w bits mul 7 add 8 idiv string def 
  56.  x0 y0 translate w h bits [sx 0 0 sy 0 0] 
  57.  {currentfile imbuf AsBin {readstring} {readhexstring} ifelse pop} 
  58.  
  59.  /sx w dw div def 
  60.  /sy h dh div def 
  61.  
  62.  
  63.  
  64.  
  65.  
  66.  
  67.  
  68.  
  69.  
  70.  
  71.  /bits exch def 
  72.  /h exch def    /w exch def 
  73.  /dh exch def    /dw exch def 
  74.  /y0 exch def    /x0 exch def 
  75.  /AsBin exch def 
  76.  
  77.  
  78.  /S_IMAGEV3    {    
  79.  
  80.  
  81. /imbuf w 7 add 8 idiv string def 
  82. x0 y0 translate w h inv [sx 0 0 sy 0 0] 
  83. {currentfile imbuf AsBin {readstring} {readhexstring} ifelse pop} imagemask 
  84. } def    
  85.  
  86.  
  87. /S_IMAGEMASKV3    {    
  88. /inv exch def 
  89. /h exch def    /w exch def 
  90. /dh exch def    /dw exch def 
  91. /y0 exch def    /x0 exch def 
  92. /AsBin exch def 
  93. /sx w dw div def 
  94. /sy h dh div def 
  95.  
  96.  
  97.